home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Updates / PowerPC / pdflib / bind / tcl / hello.tcl next >
Text File  |  2000-05-16  |  916b  |  45 lines
  1. #!/bin/sh
  2. # hello.tcl
  3. # Copyright (C) 1997-99 Thomas Merz. All rights reserved.
  4. #
  5. # PDFlib client: hello example in Tcl
  6. #
  7.  
  8. # Hide the exec to TCL but not to the shell by appending a backslash\
  9. exec tclsh "$0" ${1+"$@"}
  10.  
  11. # The lappend line is unnecessary if PDFlib has been installed
  12. # in the Tcl package directory
  13. lappend auto_path .
  14.  
  15. package require pdflib 2.01
  16.  
  17. set p [PDF_new]
  18.  
  19. if {[PDF_open_file $p "hello_tcl.pdf"] == -1} {
  20.     puts stderr "Couldn't open PDF file!"
  21.     exit
  22. }
  23.  
  24. PDF_set_info $p "Creator" "hello.tcl"
  25. PDF_set_info $p "Author" "Thomas Merz"
  26. PDF_set_info $p "Title" "Hello world (Tcl)"
  27.  
  28. PDF_begin_page $p 595 842
  29. set font [PDF_findfont $p Helvetica-Bold "default" 0 ]
  30.  
  31. if { $font == -1 } {
  32.     puts stderr "Couldn't set font!"
  33.     exit
  34. }
  35.  
  36. PDF_setfont $p $font 18.0
  37.  
  38. PDF_set_text_pos $p 50 700
  39. PDF_show $p "Hello world!"
  40. PDF_continue_text $p "(says Tcl)"
  41. PDF_end_page $p
  42. PDF_close $p
  43.  
  44. PDF_delete $p
  45.